home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Font / Font Tools / FontPrint 1.0.2.sit / FontPrint 1.0.2.rsrc / TEXT_195_RegForm-3.txt < prev    next >
Encoding:
Text File  |  1994-09-28  |  1.4 KB  |  53 lines
  1. /adj1 -7 def
  2. /ls 13.5 def cr
  3. LabelFont setfont
  4. h3 v4 m numLicenseLabel show 10 0 r
  5. InfoFont setfont (znumLic) boxshow
  6. cr 0 ls -2 div r
  7. LabelFont setfont
  8. h3 p x pop m howHeardLabel show cr 0 adj1 r
  9. InfoFont setfont
  10. h4 p x pop m 
  11.     G bhj neg ls r 0 q R
  12.     /hmax 0 def
  13.     h4 h2 (zhowHea)wrap
  14.     qa 1 get dup 0 hmax bhj add put 1 qa 0 get 1 get put
  15.     qa 2 get dup 0 hmax bhj add put 1 p bvj add x pop put
  16.     qa 3 get dup 0 h4 bhj sub put 1 p bvj add x pop put
  17.     quad
  18. cr 0 ls -2 div r
  19. LabelFont setfont
  20. h3 p x pop m nameLabel show cr 0 adj1 r
  21. InfoFont setfont
  22. h4 p x pop m 
  23.     (ztheNam) boxshow cr 0 ls -2 div r
  24. LabelFont setfont
  25. h3 p x pop m companyLabel show cr 0 adj1 r
  26. InfoFont setfont
  27. h4 p x pop m 
  28.     (ztheCom) boxshow cr 0 ls -2 div r
  29. LabelFont setfont
  30. h3 p x pop m AddressLabel show cr 0 adj1 r
  31. InfoFont setfont /hmax 0 def
  32. h4 p x pop m 
  33.     G bhj neg ls r 0 q R
  34.     (ztheStr)show p pop dup hmax gt{/hmax x def}{pop}ifelse
  35.     cr h4 p x pop m 
  36.     (ztheCit)show (, )show (ztheSta)show (  )show (ztheZip)show 
  37.     p pop dup hmax gt{/hmax x def}{pop}ifelse
  38.     qa 1 get dup 1 qa 0 get 1 get put 0 hmax bhj add put
  39.     qa 2 get dup 0 hmax bhj add put 1 p bvj add x pop put
  40.     qa 3 get dup 0 h4 bhj sub put 1 p bvj add x pop put quad
  41. cr 0 ls -2 div r
  42. LabelFont setfont
  43. h3 p x pop m PhoneLabel show cr 0 adj1 r
  44. InfoFont setfont
  45. h4 p x pop m (zthePho) boxshow cr 
  46. G llx p x pop m urx 0 rlineto stroke R
  47. cr cr
  48. SmallFont setfont /hmax 0 def
  49. h1 h2 PleaseMail wrap cr cr
  50. HacSoftAddr {h3 p x pop m show cr} forall
  51.  
  52. showpage
  53.